perm filename FOO[P,JRA]4 blob
sn#419884 filedate 1979-02-15 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002
C00004 ENDMK
C⊗;
else if equ(s,"LF") then done
else if equ(s,"LB")then begin
typeset("<");
text_set←true;
end
typeset(">");
text_set←true;
end
else if equ(s,"RB")then begin
then begin
"foo"
outstr("loss
onheading
hack"&crlf);
else if
equ(s,"FF")
done end
"foo" else
begin
"BIGcommand"
akakakakka string s1;
akakaakkaka: integer br;
s1←scan(s,tospeq,br);
if length(s)=0 then begin outstr("FOO on "&s1&crlf);continue end;
if equ(s1,"COLUMN") then begin
stuff(bell);
stuff(dee);
stuff(ensp);
end
else if equ(s1,"FONT") then setfootfont(cvd(s))
else if equ(s1,"LINESPACE") then begin outstr("heading loss"&crlf);
end
else if equ(s1,"COL") then begin "col inc"
stuff(bnd);
s1←scan(s,tospeq,br); ! flush "INC";
seen_bnd←true;
end "col inc"